home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Mar / DI9803DB / ssserver / ServerAuto.pas next >
Encoding:
Pascal/Delphi Source File  |  1997-10-11  |  627 b   |  34 lines
  1. unit ServerAuto;
  2.  
  3. interface
  4.  
  5. uses
  6.   ComObj, SSServer_TLB;
  7.  
  8. type
  9.   TSystemStatusAuto = class(TAutoObject, ISystemStatus)
  10.   protected
  11.     function Get_SystemStatus: OleVariant; safecall;
  12.   end;
  13.  
  14. implementation
  15.  
  16. uses ComServ, SysStatus, CompStream;
  17.  
  18. function TSystemStatusAuto.Get_SystemStatus: OleVariant;
  19. var
  20.   SS: TSystemStatus;
  21. begin
  22.   SS := TSystemStatus.Create(nil);
  23.   try
  24.     SS.GetSystemStatus;
  25.     Result := ComponentToVariant(SS);
  26.   finally
  27.     SS.Free;
  28.   end;
  29. end;
  30.  
  31. initialization
  32.   TAutoObjectFactory.Create(ComServer, TSystemStatusAuto, Class_SystemStatusAuto, ciMultiInstance);
  33. end.
  34.